home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1993 / The Association of Shareware Professionals Advantage CD-ROM 1993.iso / files / progming / pwl521q / empty.bas < prev    next >
BASIC Source File  |  1992-11-15  |  2KB  |  64 lines
  1. '    EMPTY.BAS - ProWindows(tm) Starter Shell for User Programs
  2.  
  3. REM $DYNAMIC      
  4. DEFINT A-Z
  5.  
  6. REM $INCLUDE: 'LITE.BI'     
  7.  
  8. CONST WINMEMSIZE% = 8191      ' <= WINDOW MEMORY SIZE
  9. CONST SCRNMEMSIZE% = 4096     ' <= SCREEN MEMORY SIZE
  10. CONST MAXWINDOWS% = 30        ' <= MAX NUMBER OF WINDOWS
  11.  
  12.     CLEAR , , 4096
  13.  
  14.     LOCATE 1, 1
  15.  
  16.     PreInit                  ' <= PRE-INITIALIZE THE WINDOW MANAGER
  17.  
  18.     REDIM SHARED VirMem(WINMEMSIZE) AS INTEGER    ' <= VIRTUAL MEMORY
  19.     REDIM SHARED scrn(SCRNMEMSIZE) AS INTEGER     ' <= SCREEN MEMORY
  20.     REDIM SHARED vcb(MAXWINDOWS) AS vircb         ' <= VIRTUAL WINDOW INFO
  21.     REDIM SHARED wcb(MAXWINDOWS) AS wincb         ' <= DISPLAYED WINDOW INFO
  22.     REDIM SHARED cursor(MAXWINDOWS) AS cursorTYPE ' <= CURSOR CONTROL ARRAY
  23.     REDIM SHARED wcbndx(MAXWINDOWS) AS INTEGER    ' <= LIST OF HANDLES
  24.  
  25.     CLS
  26.     
  27.     InitPro                  ' <= INITIALIZE THE WINDOW MANAGER
  28.     
  29.     ReCycleMode 1            ' <= ENABLE "VIDEO RECYCLING"
  30.     
  31.     SetEventDelay 18         ' <= SET EVENT DELAY TIME (1 SECOND)
  32.  
  33.     UseDrivers 0, 0, 1       ' <= INSTALL CURSOR DRIVER
  34.  
  35.     FillScreen 1, 1, MAXROWS, MAXCOLS, 23, 250, SNOW
  36.  
  37.     Notice
  38.  
  39.     MouseInstalled = CheckMouse(buttons)
  40.     MouseCursorOn
  41.  
  42. Main:
  43.  
  44.     DO
  45.  
  46.         SELECT CASE GetEvent(0)  ' <= POLL THE EVENT MANAGER
  47.  
  48.             CASE 16             ' <= WAS <ESC> PRESSED?
  49.                 IF MouseInstalled THEN
  50.                     MouseCursoroff
  51.                     termMouse
  52.                     ResetVideo
  53.                 END IF
  54.                 END
  55.  
  56.             CASE 17             ' <= EVENT TIME-OUT
  57.  
  58.             CASE ELSE           ' <= SKIP OTHER EVENTS
  59.  
  60.         END SELECT
  61.  
  62.     LOOP
  63.  
  64.